home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / xcad2000 / hd-install / install-xcad2000-floppy < prev    next >
Text File  |  1994-02-13  |  3KB  |  137 lines
  1. ; $VER: Install XCAD 2000-Floppy V1.0 (13th February 1994) © 1994 by Ben Vost
  2.  
  3. ;for NTSC machines...
  4. (procedure NTSC
  5.     (message "Now copying files suitable for an NTSC system...")
  6.         (copyfiles
  7.             (prompt"")
  8.             (help "")
  9.             (source "Install_XCAD2000.1:screenmodes/")
  10.             (pattern "#?NTSC#?")
  11.             (dest "XCad2000:")
  12.                 )
  13.     (working)
  14.     (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-prog_ntsc.lha XCad2000:"))
  15.  
  16.  
  17. )
  18. ;for PAL machines...
  19. (procedure PAL
  20.     (message "Now copying files suitable for a PAL system...")
  21.         (copyfiles
  22.             (prompt "")
  23.             (help "")
  24.             (source "Install_XCAD2000.1:screenmodes/")
  25.             (pattern "~(#?NTSC#?)")
  26.             (dest "XCad2000:")
  27.                 )
  28.     (working)
  29.     (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-prog.lha XCad2000:"))
  30.  
  31. )
  32.  
  33.  
  34. ; ask where to install X-CAD 2000
  35.  
  36. (message "Before you can install XCad to floppy, you will need four"
  37.      " floppy disks named XCad2000, XCad2000-2, XCad2000-3 and"
  38.      " XCad2000-4.")
  39.  
  40. (copyfiles
  41.     (prompt "")
  42.     (help "")
  43.     (source "Install_XCAD2000.1:c/install")
  44.     (dest "RAM:")
  45. )
  46.  
  47. (copyfiles
  48.     (prompt "")
  49.     (help "")
  50.     (source "Install_XCAD2000.1:c/lha")
  51.     (dest "RAM:")
  52. )
  53.  
  54. (askdisk "XCad2000"
  55.     (prompt "Please insert the disk named XCad2000 in drive df0...")
  56.     (help @askdisk-help)
  57.     (dest "XCad2000")
  58. )
  59.  
  60. (message "Please make sure the XCad2000 disk is in drive df0:")
  61.  
  62. (run ("RAM:install df0:"))
  63.  
  64. ;setting the disk up as Workbench...
  65.  
  66. (makedir "XCad2000:empty")
  67. (makedir "XCad2000:drawings"(infos))
  68. (makedir "XCad2000:symbols")
  69.  
  70. (working "Setting up system disk now...")
  71. (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-1.lha XCad2000:"))
  72.  
  73.  
  74. (set vblank (database "vblank"))
  75.     (if (= vblank "60")
  76.         (NTSC)
  77.         (PAL)
  78.     )
  79.  
  80.  
  81. (complete 20)
  82.  
  83. ;start installing XCAD 2000
  84.  
  85. (set XCDir "XCad2000-2:")
  86.  
  87. (askdisk XCAD2000-2
  88.     (prompt "Please insert the disk named XCad2000-2 in any drive...")
  89.     (help @askdisk-help)
  90.     (dest "XCad2000-2")
  91. )
  92. (working "Installing first block of files now...")
  93. (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-2.lha XCad2000-2:"))
  94.  
  95. (complete 40)
  96.  
  97. (set XCDir "XCad2000-3:")
  98.  
  99. (askdisk XCAD2000-3
  100.     (prompt "Please insert the disk named XCad2000-3 in any drive...")
  101.     (help @askdisk-help)
  102.     (dest "XCad2000-3")
  103. )
  104. (working "Installing second block of files now...")
  105. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-3.lha XCad2000-3:"))
  106.  
  107. (complete 60)
  108.  
  109. (set XCDir "XCad2000-4:")
  110.  
  111. (askdisk XCAD2000-4
  112.     (prompt "Please insert the disk named XCad2000-4 in any drive...")
  113.     (help @askdisk-help)
  114.     (dest "XCad2000-4")
  115. )
  116. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-4.lha XCad2000-4:")
  117.     (prompt "Would you like to install the tutorial files?\n"
  118.         "(If you SKIP THIS PART, you won't need the 4th disk.)")
  119.     (help "")
  120.     (confirm)
  121. )
  122.  
  123. (complete 90)
  124.  
  125. (if (= 1 (exists "RAM:lha"))
  126.     (delete "RAM:lha")
  127. )
  128. (if (= 1 (exists "RAM:install"))
  129.     (delete "RAM:install")
  130. )
  131. (Complete 100)
  132.  
  133. (set XCDir "XCad2000:")
  134.  
  135. (set @default-dest XCDir)
  136.  
  137. (exit"You will need to reboot before you can use \nX-CAD 2000.\n")